home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 001-025 / scopedisk19 / blinker / getlinkerinfo.sub < prev    next >
Text File  |  1995-03-18  |  960b  |  43 lines
  1. '---------------------------------------------------------------------------
  2. '
  3. '                   Get Linker Info
  4. '
  5. '
  6. '              Copyright 1987 by Brian Zupke
  7. '
  8. '
  9. '     Sets the program name to be linked, library and
  10. '   executable program pathnames, and compress command.
  11. '
  12. '
  13.   SUB GetLinkerInfo.SUB(ProgramName$,LibPath$,PrgPath$,Compress) STATIC
  14. '
  15. '  Make sure program name is valid
  16. '
  17.   ProgramName$ = ""
  18.   WHILE ProgramName$ = ""
  19.     INPUT "Program name";ProgramName$
  20.   WEND
  21. '
  22. '  Add '/' to pathnames as required
  23. '
  24.   INPUT "Library pathname";LibPath$
  25.   IF LEN(LibPath$) > 4 AND RIGHT$(LibPath$,1) <> "/" THEN
  26.     LibPath$ = LibPath$ + "/"
  27.   END IF
  28. '
  29.   INPUT "Program pathname";PrgPath$
  30.   IF LEN(PrgPath$) > 4 AND RIGHT$(PrgPath$,1) <> "/" THEN
  31.     PrgPath$ = PrgPath$ + "/"
  32.   END IF
  33. '
  34. '  Set Compression flag
  35. '
  36.   INPUT "Compress (Y or N)";Answer$
  37.    IF UCASE$(Answer$) = "Y" THEN
  38.      Compress = TRUE
  39.    ELSE
  40.      Compress = FALSE
  41.    END IF
  42.   END SUB
  43.